use primes;

foreach $i (primes(2000000)) {
    $sum+=$i;
}

print "$sum\n";